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468 ™ RETURN | O14 

469 ™ ERO/ARLI=S RESULT G1 

470 *® OL 

©10A OSSS0C080109100Di 471 I IADD GEN /MsGF2rsLA2sFF9IsWRis BED: AAI ALU LSWE/SAMPLE CARRY Of 
910B 0860000018010401 472 GEN /*@sLAS,s HURL» SH4,AA1 S4YIFT RESULT RIGHT 1i/ 91 
473 ™ SYRIP SIGN 01 

floc O230e28suo09300C0 474 7 GEN /NCCOMPOP)sGFAsFFO,CFisWRisBEBCsAAD ADD MEWS/YSAMPLE SYFL Ot 
475 Oi 

476 *® DOURLE PRECISION FIXED POINT SUETRACT CISUE?D O1 

477 ®™ Oi 

472 * CALLING SEQUENCE Of 

479 ARO/ARI= 1ST OPERAND Oi 

40 * ARC/ARD= 2ND OPERAND Ct 

431 ™ ie 

4se ™ RETURN 01 

433 ARG YARL= RESULT Of 

434 ™ 04 

f10D NBe7on0nsoins7o0Di 485 ISusB GEN “7M, GFersLA2sFFE6sCF35NR1sBBD: AAI SUB LSWS/SAMPLE CARRY 01 
PtgE& 02780009018910401 436 GEN 7®sLASsHRisSH4,AA1 SHIFT RESULT RIGHT i¢ 401 
427 *™® STRIP SIGN Gi 

C1OF oO2e900280006300C0 488 GEN /NCCOMPOP),GFAsFF6E.,CFisWRi+»BBC,;AAD STUB MSWE/SAMPLE OVFL O1 
429 ™ 01 

4°0 * SAVE OPi MSW IN CASE FLOAT AnD/SUB o1 

491 FPpC GEN /NCOFPLIISLIICESGPRos23(R0),14CTRNB)D»15¢(LOG): 01 

9110 Q1ES800000CASO0D0E 492 C1i7¢GPROUT>:24¢RE> Oi 
Sue20 4393 ORG FLTFRM 01 
494 ™ 0 i 

495 ™ SELECT FIXED POINT OPERATIONS 01 

4396 ”™ 0} 

4o7 ™ 1 

42s *™ FIXD THROUGH FIXS MUST BE IN fONTIGUBUS G1 

4°23 6 BLOCK AND OF IGINATE AT A MODULO 4 ALRDEESS Gi 

soo ™ O1 

Soil *™ of 

£920 O7F700000FT60DAFBDEZ9 S02 j-FIXD GMSK /NCINIVIsSIH*sLESs FFAs MKFNE? FIY¥ED DIVIDE Ot 
C021 OS56S80000L0uCT90004 S03 FIXM GEN /NCIMULD SFFCsMF1,UR1,6404 FIXED MULTIPLY oi 
%n22 o85000801001000D 504 FIXA GEN “NCIADDI s GF2«LACsWRis SHOsaGD FIXED Ann G1 
Sues asesoosciocic00oD 505 FIXS GEN “NCISUBI,GF2s,LA@sHR1i»s SHO: AnD FIXED SUERTREACT 
506 *™ 1 

S07 * FMD MUST BE ON EVEN POUNDARY - 94 

5038 FOLLOWED BY FAS 01 

sc9 O04 

9024 O72FO0000S 7ADFFFO S10 FMD GMaAk CNOCFMDLIsLBSsRESBsF FAs MKDOFFF GENERATE EXPONENT BIAS O1 
S625 O130000000H900BC Si1i Fas GEM @MsFFASMF1lswRi»BBBs AAC Save OP2 EXPONENT O* 
S926 O13800800067003R Sie GET ™.GF2,FF6,;CES,;WR1+7BS: GAZ SUBTRACT OFF-OP1 04 
513 GMEK /TCFALOs FARSI» TE 3s GF 9; LBEAskF 2s TEST For FeRoe O1 

Qo27 Bidsesedc6ezAoqcgose S14 CFFAs»sMKO00S “OT SHIFT COUNTER Ct 
S15 Fasi GE} TCFASSs FASS» TFPsGF7sFFS2" 1s T.87 IF RESULT NEGATIVES} 

"928 615021CO720390C02 3516 CHR1I;AAS 7RESET OPLEX .GT. OP2Sexot 
517 Faso GEA PTCBsFASLIOs TE3SsGFC»LAts REFS P'suT JUSTIFY Qi 

e923 414833001D°C10208 518 CHWR1,2H2,AAB YU ONCNT vIFFERENSE Gi 
Q02A O1580900090S701BE 519 FAS? GEN /MsFFSsCF3sUR1;:°5H1;8Ans BEB NEGA [ EXPONENT at 
CseB o16gononoso70002 S20 GEN fs Or3,HWR1;40N2 SEY DPLEM .51 OPZEX Qi 
S02C O168000063AFFES0 S2i Fass GNSK CMs LESRES:FFAMKFFES o' 
9c2D O170000920AR90000 S22 Gi Ms LPLsFPFAasMF1IsWR1; A802 GET MAX EXPONENT IN AROQOI 
CO2FE O178008CO066O00FRN St3 GES (My GTAsFRF6sCF Ss BEB, Aa0 EX? BIFF - Max DIFF G4, 
seg GEN (TCFASSs FASGIs TES» G7» RFes IS EMPOMFIT DIFFESENCE O31 

SO0e@F LIBSSILCODOFDBOOCS S75 CMFi1. 3200 .GT. MAX CHET K TT MAXI0! 
no20 oarsaocoaca0ng00sh 276 FASS GEM PNCOCFASLICIsETAsMPisiHtis BEE» AAD Mriwe CrPEePpryps TO =~ Oi 
SO3S1l Bis000bOSe0SOCGS Te7 ‘FASS GEN (He OT EMPL» aRE ELse& SET TE BIFFERENCE 6! 
3232 0198008005F80003 528 FASS GEN f¥@s SF 2sRFSsFFRFsMFis ries SELECT MANTISSA FOR Oo: 
S73 ® AL'SGMMENTZSTOEP SHIFT K O° 

"33 41AsSsR2400n000000 S20 GEM fTCFAS7sFASZI«TF395F9 f°EST SIGN FLAG QO: 
531 8 O14 

“3e °* SHIFT MANTISSA ASSOCIATED WITH Of 

S33 * SMALLER EXPONENT Oi 

ween: | - ot 

S35 FAtS7B GEN PTCMsF ASFA» TES:GFC», LABS RFS: SHIFT OP2 RIGHT TO ie 

3034 B3LAOBS3S00IDOLAADS S36 CURIs»sSCisWF1,KF1,SH7,0A9 ESUATE EX=URZINTS ged 
H9035 Oi1AMonoesisogsonan S27 #2FAS? GEN NOP AS7TBsLASCRFSsVF1;AadA Ot 
QO86 OLBRSNOORGCRSOBSOC 33S FAE7A GEN “Ms SClsF 1s HF 3 01 
"N37 O1B800000f0AaAS00D0A 35329 GEN AZNOFASD}sLBl»sFFAsMFislRisAAA G4 
NO38 o10C80G0013004007 540 FASS GEM fol Als RF3B1VF 1lsnR? . | 01 
S41 GE* (TC#sFASSRIsTE3S:GFCsLASs RES SHLET OP1 FIGHT 2 Ot 

"939 Sicsez3s0ninpeiaascse s4e CWRisSCisWFis*¥Fi»sSH2,aQhH6 FOUATE EXFONENTS Ol 
993A OLDSOON0DDSONDBSOR S43 FRSE GEN ®,y SCL WF 1s XF3 Of 
203B Of£oo00022enanS0CO7 S44 GEN P®@esLRisFFAsMFisKR1-AA? Gi 
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543 MTVE DPe WORDI TO 0% 

S49 SUBROUTINE RPEGISTER a 

S50 t 

218A 551 ORG al eee Ot 
S32 | Oo 4 

"128 ocdenoocorAsoo7i 853 GEM /NCFQSLLIsFRaseMPisuet SUBPOUTINE FEGISTERS O4 
C1399 si4 SRS yee Oi 
27189 O2EScootooAsO0AaNR 555 GEN PNP GS1L2 3s Fo Ae MP isk 0% 
ansp 556 or FLYfeneut an Oi 
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. PREeE  § T FORMAT BES GRIT PTarRrtsT Tt G& 2 . 0 
U 

* FUNCTION: TO PROCESS THE FORMAT DESCRIPTOR: TW * 0 
® * OQ 
’ ENTRY! DIRECT FROM FRS * 0 
* BFPT = CURRENT BUFFER CHARACTER POSITIONCBASE 03 * 0 
™ W = SPECIFIED BUFFER CHARACTER PUSITIONCBASE 15 .¥ 0 
¥ | x Oo 
* EXIT =: DIRECT TO FRS * 0 
™ EFPT = U-! * 1 
* BFWPT = ALBF # BFPT/2 x 9 
: RWFLCBIT $C) © i IF LOGICAL FILE PHYSICSLLY POSITIONED BRERVE 0 
; § 

* ERRORS? ERL IF W OUTSIDE LOGICAL RECORD * 0 
rd * o 
Oe SRE SE SE We We SUE 20 2 ee eee meee eee ee 
TIN EQu ¥ C 
TOUT Eau bd 0 
MOVBAB EFPT»SAVE SAVE CURRENT VALUE OF BUFFER CHSOR PTR 4) 

LDR a B GET W 0 

DAR CONVERT FROM BASE 1 TO BASE O f 

STA EBFPTsB STORE AS BUFFER CHAPACTER PUIHTER 0 

SUB SAVE: B : 

Jeih Tid190 TEST DIRECTION OF REPOSITION Ye 

Pee SS SP ERSTE SE EEE SSS ve a 
* POSITION FORWARD ® Ve 0 
Let ett ee ec eee ee ee ee WoO 9G 
LDA "RSZeB YES | U 
LRLA.. 1 GET LOGICAL RECORD BYTE COUNT 3 

SUB Lis B fi 

JAN a ae | ERROR 14 W OUTSIDE RECORD ¢ ) 
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006230 016121 A 4728 TRI LDR LRECNOs8B 07 04728 
4723 EJEC O7 04723 
4730 BRERRRREC KERR ET EARNERS CERERERKR ERK KRAEMER EMER ER OF O4730 
4731 ® FO” O4731 
4732 ® UNF OR MATTE D TNPUT4YOUTPUT¢€ Ud a) * 0? 04732 
4733 * | * O07 04733 
4734 ™ FUNCTION: TO PROUCESS UNFORMATTED I70 CALLS * O7 04734 
47335 *™ * O7 04735 
4736 ™ ENTRY: ITEMAD = LIST ITEM ADDRESS * Of 04736 
4737 ™ BFWPT = ALBDRESS OF BATA WORD IN BUFFER * O7 04737 
47sS ™ * O07 04735 
47339 ™ EXIT =: TO ¥SFORTIO THRU GNL * Of 04739 
4740 ™ * a7 04749 
4741 KERMA CEE EEE EKER FP Oa Prt 
4743 MMMM ee Cc? nar4an 
4744 ™ TRANSFER LOOP *™ o7 04744 
cor ete eee ee SS LoS SE a7 o4745 
4746 UIO PUSHJ GNL GET NEXT LIST ITEM ADDRESSZVEXRIT ¥Y2 af 04746 
cC96231 006010 A 
106232 001550 R 
0906233 006505 .A 
006234 004774 R 
4747 PUSHJ OSA GET BUFFER ADDRESS V2 Of 0474? 
o36e€3S 206010 A 
N06236 901162 R 
S06237 966305 A 
006240 0804774 R 
4748 TSASB RWFLeWReUIO4 TEST INPUT OR DUTPUT V2 O/7 04748 
006241 9161354 A 
“36242 006411 A 
go06243 006252 R 
4749 AAR ERE C/ O4/743 
4750 ® INPUT ® df 042759 
4751 ERM RH 0? 04751 
06244 036025 A 47532 LOX BFWPTsB POINT % AT DATA WORD IN BUFFER C/ 04752 
uUI6245 015000 A 4753 LUA Os % GET DATA HWHRD 0? 04753 
N0624¢6 OF6L13 A 4754 LDX iTEMADs B POINT &X AT LIST ITEM 0? 04754 
906247 033000 AR 4755 $TA Ose STORE INPUT BATA KORD IN LIST ITEM 07 94755 
006250 001000 A 4/756 JmMP UIQ LOOF UNTIL DONE 0° O4756 
006251 006231 R 
4757 RRR EM G7? 0473527 
As 4758 *® DUTPUT * Of 04758 
4759 we OK Oe Of 04/759 
nNoO6eSe O8S6113 A 4769 UID LOX ITEMAD: B POINT *% AT LIST ITEM Of 04/760 
906233 015000 A 4/761 LDA Osx | GET BDaTA WORD 0? 64-61 
Oo06254¢ O36025 A 4762 ) LDX BFWPTs 8 POINT X AT BATA WOLD IN BUI FER GO? 04762 
9096255 055000 & 4763 $TA OsK STORE BATA WORD IN UUTPUT BUFFER o7 04763 
006256 001000 A 4764 JMP UiIo LOOP UNTIL JONE Te 94764 
0362357 006231 R 
4765 EJEC cf 24765 
4766 RAMEE ERE ERE ERE RE ES MRE OP OA PSG 
4767 ® ) . * oF 04767 
4763 ® PRGtCeESsS §$ % FORMAT BESEOG RTP «CR PT He * Of 4/63 
4769 ®™ es ew OF 476% 
4770 ™ FUNCTION: TO PROCESS THE FORMAT DESCRIPTOR: Nia x Uf 94776 
4771 * ) * O07 O47 7% 
4772 ® ENTRY: DIRECT FROM FRS *¥ O07 O47 72 
4773 *® N = FIELD WIDTH * G7 24773 
4774 * * Of O47 76 
4775 ® EXIT : TO FRS x OF O47 75 
4776 * *# YF 24776 
A777 BEEW ERNE ERK ERE TC SAMY OP OA PPP 
906260 R 4773 KIN EQuU bi UF D4P 29 
006260 R 4780 XOUT EW * j¢ 04750 
4782 MOVBAB BLNK1is BCHAR LOAD BLANK AS REPEAT CHARACTER Ve &7 04782 
996260 016202 A 
3206261 956030 A 7 ao 
4782 MOVBAB NsCOUNT SEY REPEAT COUNT TO N 317 04783 
006262 016125 A 
D06263 056052 A ee | 2d . 
4734 MOVBAB AEBSCBsASCS SET SCB TO BUFFER Of D4"84 
006264 01600e A ai : 
DNG265 O560e1 A | 
4785 PUSH ROK REFEHT CHARACTER 1/70 N TIMES Ye 6/7 04°85 
006266 006010 &A 
Oo06267 003176 R 
206270 006505 A 
906271 004774 F - : 
Qoo6e72 001000 A 4786 JMP FRSS RESUME FORMAT SCAN HP C4786 
J0se73 000464 R | 
4737 ESEL i? o47s7 
he a ee eee ee a TH OF OP ss 
Rokk = * o7 94789 
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